10 POKE53280,0:POKE53281,0:PRINTCHR$(14)CHR$(8)
20 PRINT"[147][150]      [208]ERSONAL [198]INANCIAL [211]TATEMENT"
30 POKE147,0:SYS57812"VIEWDIR.O",8,1:SYS62631
40 POKE147,0:SYS57812"SS64.O",8,1:SYS62631
50 FORI=0TO24:POKE54272+I,0:NEXT
200 DIMM$(9),A$(15),L$(9),AS$(15),LI$(9):F$="":NM=9:NA=14:NL=8
205 SP$="          "
210 FORI=1TONA:AS$(I)="0":NEXT
215 FORI=1TONL:LI$(I)="0":NEXT
220 FORI=1TONM:READM$(I):NEXT
230 DATA " [204]OAD "," [211]AVE ","[208]RINT "
235 DATA "[193]SSETS","[204]IABIL","[212]OTALS"
236 DATA " [196]IR  "," [201]NFO "," [197]XIT "
237 GOSUB7500
475 PRINT"[147][156][146]      [208]ERSONAL [198]INANCIAL [211]TATEMENT"
480 PRINT"[155]"TAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
485 FORI=1TO3:PRINTTAB(7)"[221][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][221]"
486 PRINTTAB(7)"[221][221]      [221][221]      [221][221]      [221][221]"
487 PRINTTAB(7)"[221][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][221]":NEXT
490 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
495 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
500 PRINT""
501 FORI=1TO9STEP3:PRINTTAB(9)""M$(I)""M$(I+1)""M$(I+2):PRINT:PRINT:NEXT
505 POKE214,16:PRINT:PRINT"[150]       [195]URSOR KEYS TO HIGHLIGHT. "
506 PRINT"           [210][197][212][213][210][206] TO SELECT."
507 POKE214,21:PRINT:PRINT"[153]     [C] 1988 BY [194]ARBARA [200]. [211]CHULAK"
510 R=7:C=9:XX=1:V$=M$(XX):GOSUB9050
520 GETK$:IFK$=""THEN520
525 IFK$=CHR$(13)THEN550
527 X1=XX:R1=R:C1=C
530 IFK$=""THENR=R+3:IFR>13THENR=7
535 IFK$="[145]"THENR=R-3:IFR<7THENR=13
536 IFK$=""THENC=C+8:IFC>25THENC=9
537 IFK$="[157]"THENC=C-8:IFC<9THENC=25
538 XX=R-7+INT(C/8):X2=XX:R2=R:C2=C
540 IFX1<>XXTHENXX=X1:R=R1:C=C1:V$=M$(XX):GOSUB9000
545 XX=X2:R=R2:C=C2:V$=M$(XX):GOSUB9050:GOTO520
550 GOSUB8200:ONXXGOSUB1000,2000,5000,3000,4000,6000,7000,9500,20000
552 IFXX=9ORXX=3 THEN520
555 GOTO475
1000 PRINT"[147][150]               [204]OAD [198]ILE"
1001 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1002 PRINT"[155][221][154][198]ILENAME:                   [155][221]"
1003 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1004 PRINT"[154]";
1005 TY=4:L=13:GOSUB9200:IFCT=0THENRETURN
1010 OPEN2,8,2,V$+",S,R"
1015 OPEN15,8,15
1020 INPUT#15,E0,E$,E1,E2
1025 PRINT
1026 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1027 PRINT"[155][221][154][196]ISK:                       [155][221]"
1028 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1029 PRINT"[154]";E$
1030 IFE0THENCLOSE15:CLOSE2:GOSUB9400:RETURN
1035 FORI=1TONL:INPUT#2,LI$(I):NEXT
1040 FORI=1TONA:INPUT#2,AS$(I):NEXT
1045 CLOSE15:CLOSE2:RETURN
1050 :
2000 PRINT"[147][150]               [211]AVE [198]ILE"
2001 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
2002 PRINT"[155][221][154][198]ILENAME:                   [155][221]"
2003 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2004 PRINT"[154]";
2005 TY=4:L=13:GOSUB9200:IFCT=0THENRETURN
2010 OPEN2,8,2,V$+",S,W"
2015 OPEN15,8,15
2020 INPUT#15,E0,E$,E1,E2
2025 PRINT
2026 PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
2027 PRINT"[155][221][154][196]ISK:                       [155][221]"
2028 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2029 PRINT"[154]";E$
2030 IFE0THENCLOSE15:CLOSE2:GOSUB9400:RETURN
2035 FORI=1TONL:PRINT#2,LI$(I):NEXT
2040 FORI=1TONA:PRINT#2,AS$(I):NEXT
2045 CLOSE15:CLOSE2:RETURN
2050 :
3000 PRINT"[147][150]                 [193]SSETS"
3005 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
3010 FORI=1TONA:PRINT"[221]                           [221]         [221]":NEXT
3015 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
3016 PRINT"[221] [212]OTALS                    [221]         [221]"
3017 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
3020 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
3021 R=4:C=1:X=1:V$=A$(X)
3025 PRINT"[154]";
3030 FORI=1TONA:PRINT""A$(I):NEXT
3035 PRINT"[153]";
3040 FORI=1TONA:PRINTTAB(29)""RIGHT$(SP$+AS$(I),9):NEXT
3045 GOSUB8000
3050 PRINT:PRINTTAB(29)"[150]"RIGHT$(SP$+STR$(TA),9)
3055 POKE214,21:PRINT:PRINT"[153]  _=[205]AIN [205]ENU                  [200]=[200]ELP  "
3060 V$=A$(X):GOSUB9000
3065 GETK$:IFK$=""THEN3065
3069 IFK$=CHR$(3)THENGOSUB7700:GOTO3055
3070 IFK$="_"THENRETURN
3071 IFK$="+"THENFL=1:GOTO3115
3072 IFK$="-"THENFL=2:GOTO3115
3073 IFK$="="THENFL=3:GOTO3115
3074 IFK$="H"THENSYS49152:PRINT"";:GOSUB8500:GOTO3065
3075 X1=X
3080 IFK$=""THENX=X+1:IFX>NATHENX=1
3090 IFK$="[145]"THENX=X-1:IFX<1THENX=NA
3095 X2=X
3100 IFX1<>XTHENX=X1:V$=A$(X):GOSUB9050
3105 X=X2:R=X+3:V$=A$(X):GOSUB9000:GOTO3065
3115 GOSUB8100
3119 V=VAL(V$):Y=VAL(AS$(X))
3120 IFFL=3THENAS$(X)=STR$(V):GOTO3025
3121 IFFL=1THENAS$(X)=STR$(V+Y):GOTO3025
3125 AS$(X)=STR$(Y-V):GOTO3025
3130 :
4000 PRINT"[147][150]               [204]IABILITIES"
4005 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
4010 FORI=1TONL:PRINT"[221]                           [221]         [221]":NEXT
4015 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
4016 PRINT"[221] [212]OTALS                    [221]         [221]"
4017 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
4020 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
4021 R=5:C=1:X=1:V$=L$(X)
4025 PRINT"[154]";
4030 FORI=1TONL:PRINT""L$(I):NEXT
4035 PRINT"[153]";
4040 FORI=1TONL:PRINTTAB(29)""RIGHT$(SP$+LI$(I),9):NEXT
4045 GOSUB8000
4050 PRINT:PRINTTAB(29)"[150]"RIGHT$(SP$+STR$(TL),9)
4055 POKE214,21:PRINT:PRINT"[153]  _=[205]AIN [205]ENU                  [200]=[200]ELP  "
4060 V$=L$(X):GOSUB9000
4065 GETK$:IFK$=""THEN4065
4069 IFK$=CHR$(3)THENGOSUB7800:GOTO4055
4070 IFK$="_"THENRETURN
4071 IFK$="+"THENFL=1:GOTO4110
4072 IFK$="-"THENFL=2:GOTO4110
4073 IFK$="="THENFL=3:GOTO4110
4074 IFK$="H"THENSYS49152:PRINT"";:GOSUB8500:GOTO4065
4075 X1=X
4080 IFK$=""THENX=X+1:IFX>NLTHENX=1
4090 IFK$="[145]"THENX=X-1:IFX<1THENX=NL
4095 X2=X
4100 IFX1<>XTHENX=X1:V$=L$(X):GOSUB9050
4105 X=X2:R=X+4:V$=L$(X):GOSUB9000:GOTO4065
4110 GOSUB8100
4119 V=VAL(V$):Y=VAL(LI$(X))
4120 IFFL=1THENLI$(X)=STR$(V+Y):GOTO4025
4121 IFFL=3THENLI$(X)=STR$(V):GOTO4025
4125 LI$(X)=STR$(Y-V):GOTO4025
4130 :
5000 SYS49152
5002 PRINT"[155]"TAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5004 PRINTTAB(7)"[221][154]   [208]RINTER READY [Y/N]  [155][221]"
5006 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
5010 GETA$:IFA$=""THEN5010
5020 IFA$="[217]"ORA$="Y"THEN5070
5030 SYS49227:RETURN
5070 POKE214,16:PRINT:PRINTTAB(9)"[154][208]RINTING...          "
5075 GOSUB8000:GT=TA-TL
5080 OPEN4,4,7
5090 PRINT#4,"                          [208]ERSONAL [198]INANCIAL [211]TATEMENT"
5100 FORI=1TO79:PRINT#4,"-";:NEXT:PRINT#4
5110 PRINT#4," [193]SSETS                                   [204]IABILITIES"
5120 FORI=1TO79:PRINT#4,"-";:NEXT:PRINT#4
5130 FORI=1TO8:PRINT#4,A$(I);:PRINT#4,RIGHT$(SP$+AS$(I),10);
5131 PRINT#4,"    ";:PRINT#4,L$(I);:PRINT#4,RIGHT$(SP$+LI$(I),10):NEXT
5140 FORI=9TO14:PRINT#4,A$(I);:PRINT#4,RIGHT$(SP$+AS$(I),10):NEXT
5150 FORI=1TO79:PRINT#4,"-";:NEXT:PRINT#4
5160 PRINT#4," [212]OTAL [193]SSETS              ";:PRINT#4,RIGHT$(SP$+STR$(TA),10);
5162 PRINT#4,"     [212]OTAL [204]IABILITIES         ";
5164 PRINT#4,RIGHT$(SP$+STR$(TL),10)
5170 FORI=1TO79:PRINT#4,"-";:NEXT:PRINT#4
5180 PRINT#4," [212]OTAL [206]ET [215]ORTH           ";:PRINT#4,RIGHT$(SP$+STR$(GT),10)
5190 FORI=1TO79:PRINT#4,"-";:NEXT:PRINT#4
5200 SYS49227:RETURN
5210 :
6000 PRINT"[147][150]                 [212]OTALS"
6005 PRINT"[155]"TAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
6010 PRINTTAB(7)"[221] [193]SSETS      [221]         [221]"
6015 PRINTTAB(7)"[221] [204]IABILITIES [221]         [221]
6020 [153][163]7)"-TANTANTANTANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTAN<"
6025 [153][163]7)"(null)CONT (null)ET (null)ORTH   LIST(null)CONT         LIST(null)"
6030 [153][163]7)"/TANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANEXP"
6035 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
6040 [141]8000:GT[178]TA[171]TL
6045 [153]""
6050 [153][163]22)"LIST"[201](SP$[170][196](TA),9)
6055 [153][163]22)"LIST"[201](SP$[170][196](TL),9)
6060 [153]:[153][163]22)"CONT"[201](SP$[170][196](GT),9)
6065 [141]9400:[142]
6070 :
7000 [153]"LOAD":[158]828
7005 [153]:[153]:[141]9400
7010 [142]
7020 :
7500 V$[178]"PFS.CAT"
7505 [159]2,8,2,V$[170]",S,R"
7510 [129]I[178]1[164]NL:[132]2,L$(I):[130]
7515 [129]I[178]1[164]NA:[132]2,A$(I):[130]
7520 [160]2:[142]
7525 :
7600 V$[178]"PFS.CAT"
7602 [151]214,21:[153]:[153][163]2)"(null)RITING NEW CATEGORY FILE."
7605 [159]15,8,15,"S0:PFS.CAT":[160]15
7610 [159]2,8,2,V$[170]",S,W"
7615 [129]I[178]1[164]NL:[152]2,L$(I):[130]
7620 [129]I[178]1[164]NA:[152]2,A$(I):[130]
7625 [160]2:[142]
7630 :
7700 [151]214,21:[153]:[153][163]2)"                                      ";
7705 [151]214,21:[153]:[153][163]2)"(null)EW LENAT: ";
7710 FF[178]1:TY[178]1:L[178]26:[141]9200:FF[178]0
7712 [151]214,21:[153]:[153][163]2)"ATNRE YOU SURE [Y/N]                   "
7714 [161]K$:[139]K$[178]""[167]7714
7715 [151]214,21:[153]:[153][163]2)"                ";
7716 [139]K$[179][177]"Y"[167][142]
7718 A$(X)[178]"CLOSE"[170]V$:[141]7600
7720 [142]
7725 :
7800 [151]214,21:[153]:[153][163]2)"                                      ";
7805 [151]214,21:[153]:[153][163]2)"(null)EW LENAT: ";
7810 FF[178]1:TY[178]1:L[178]26:[141]9200:FF[178]0
7812 [151]214,21:[153]:[153][163]2)"ATNRE YOU SURE [Y/N]                   "
7814 [161]K$:[139]K$[178]""[167]7814
7816 [139]K$[179][177]"Y"[167][142]
7818 L$(X)[178]"CLOSE"[170]V$:[141]7600
7820 [142]
7825 :
8000 TA[178]0:[129]I[178]1[164]NA:TA[178]TA[170]([197](AS$(I))):[130]
8005 TL[178]0:[129]I[178]1[164]NL:TL[178]TL[170]([197](LI$(I))):[130]
8010 [142]
8015 :
8100 [151]214,21:[153]:[153][163]2)"                                      ";
8102 [151]214,21:[153]:[153][163]3)"VALNTER: ";
8105 TY[178]2:L[178]9:[141]9200
8110 [151]214,21:[153]:[153][163]3)"                ";
8115 [142]
8120 :
8200 [151]54296,21
8205 [151]54277,9
8210 [151]54278,0
8215 [151]54273,48
8220 [151]54276,32
8225 [151]54276,33
8230 [142]
8235 :
8500 [153][163]4)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
8515 [153][163]4)"(null) + (null)O ADD VALUE TO CELL       (null)"
8520 [153][163]4)"(null) - (null)O SUBTRACT VALUE          (null)"
8525 [153][163]4)"(null) = (null)O SET CELL EQUAL TO VALUE (null)"
8526 [153][163]4)"(null)                              (null)"
8527 [153][163]4)"(null) LEN(null)(null)(null)(null)(null)(null) LEN TO CHANGE CATEGORY (null)"
8530 [153][163]4)"(null)                              (null)"
8535 [153][163]4)"(null)         (null)RESS (null)ETURN         (null)"
8540 [153][163]4)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
8545 [161]K$:[139]K$[179][177][199](13)[167]8545
8550 [158]49227:[142]
8555 :
9000 [151]214,R[171]2:[153]:[153][163]C)"LIST"V$
9005 [142]
9010 :
9050 [151]214,R[171]2:[153]:[153][163]C)"CONT"V$
9055 [142]
9060 :
9200 V$[178]"":K$[178]"":CT[178]0:[153]"TOCMD";
9205 [161]K$:[139]K$[178]""[167]9205
9210 [139]K$[178][199](13)[167]9270:[143] RETURN
9215 [139]K$[178][199](20)[175]CT[179][177]0[167][153]" CMDCMDTOCMD";:CT[178]CT[171]1:V$[178][200](V$,CT):[137]9205
9220 [139]K$[178]" "[167]9255:[143] SPACE
9221 [143]IFK$="."THEN9255
9225 [139]TY[178]1[176] TY[177]2[167][139](K$[177]"@")[175](K$[179]"[")[167]9255:[143] ALPHA
9230 [139]TY[177]1[167][139](K$[177]"/")[175](K$[179]":")[167]9255:[143] NUMERIC
9235 [139]TY[178]1[176]TY[177]2[175]CA[178]2[167][139](K$[177]"TAN")[175](K$[179]"(null)")[167]9255:[143] UPPER CASE
9240 [139]TY[178]4[167][139](K$[177][199](34))[175](K$[179]"0")[167]9255:[143] #$%&'()*+,-./ PUNCT
9245 [139]TY[178]4[167][139](K$[177]"9")[175](K$[179]"@")[167]9255:[143] :;<=>? PUNCTUATION
9250 [137]9205
9255 [139]CT[177][178]L[167]9205
9260 CT[178]CT[170]1:V$[178]V$[170]K$:[153]K$;:[151]212,0:[153]"TOCMD";
9265 [137]9205
9270 [139]CT[178]0[167]V$[178][199](0)
9275 [139]FF[167][129]I[178][195](V$)[170]1[164]L:V$[178]V$[170]" ":[130]:[143] PAD STRING
9280 [142]
9285 :
9400 [151]214,21:[153]:[153][163]14)"PRINT(null)RESS (null)ETURN":[151]198,0
9405 [161]K$:[139]K$[179][177][199](13)[167]9405
9410 [142]
9415 :
9500 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9505 [153]"}     PRINTpERSONAL fINANCIAL sTATEMENT     }";
9510 [153]"}                                      }";
9515 [153]"} CONT                                     }";
9520 [153]"} CONTtHIS PROGRAM WILL ALLOW YOU TO       }";
9525 [153]"} CONTPREPARE A REPORT OF YOUR NET WORTH.  }";
9530 [153]"} CONTtHIS INFORMATION IS FREQUENTLY       }";
9535 [153]"} CONTREQUESTED BY BANKS WHEN APPLYING FOR }";
9540 [153]"} CONTA LOAN OR MORTGAGE.  iT IS ALSO      }";
9545 [153]"} CONTUSEFUL FOR FUTURE FINANCIAL PLANNING.}";
9550 [153]"} CONT                                     }";
9555 [153]"} CONTtHE PROGRAM IS DESIGNED AS A         }";
9560 [153]"} CONTCOMBINATION DATABASE/SPREADSHEET.    }";
9565 [153]"} CONTfROM THE MAIN MENU YOU MAY LOAD,     }";
9570 [153]"} CONTSAVE OR PRINT YOUR FILE.  yOU MAY    }";
9575 [153]"} CONTALSO VIEW THE DISK DIRECTORY IN CASE }";
9580 [153]"} CONTYOU HAVE FORGOTTEN YOUR FILENAME.    }";
9585 [153]"} CONThOWEVER, THE HEART OF THE PROGRAM IS }";
9590 [153]"} CONTTHE DATA ENTRY AND CALCULATION.      }";
9595 [153]"} CONT                                     }";
9600 [153]"} CONT                                     }";
9605 [153]"} CONT                                     }";
9610 [153]"}                                      }";
9615 [153]"}             PRINTpRESS rETURN             }";
9620 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9625 [161]K$:[139]K$[179][177][199](13)[167]9625
9630 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9635 [153]"}     PRINTpERSONAL fINANCIAL sTATEMENT     }";
9640 [153]"}                                      }";
9645 [153]"} CONT                                     }";
9650 [153]"} CONTtHE FIRST STEP IS TO SELECT assets   }";
9655 [153]"} CONTFROM THE MAIN MENU.  yOU WILL THEN   }";
9660 [153]"} CONTBE PRESENTED WITH A LIST OF ASSETS   }";
9665 [153]"} CONTSUCH AS CASH, REAL ESTATE, OR STOCK. }";
9670 [153]"} CONTuSE THE UP/DOWN CURSOR KEYS TO MOVE  }";
9675 [153]"} CONTTHROUGH THE LIST.  tHE CATEGORIES    }";
9680 [153]"} CONTWILL BE HIGHLIGHTED ONE BY ONE.      }";
9685 [153]"} CONTaFTER YOU HAVE SELECTED ONE, PRESS   }";
9690 [153]"} CONTTHE PLUS (+) KEY TO ADD A VALUE TO   }";
9695 [153]"} CONTTHE CORRESPONDING CELL, PRESS THE    }";
9700 [153]"} CONTMINUS KEY (-) TO SUBTRACT A VALUE OR }";
9705 [153]"} CONTPRESS THE EQUAL KEY (=) TO SET THE   }";
9710 [153]"} CONTCELL TO A PARTICULAR VALUE.  yOU     }";
9715 [153]"} CONTWILL NOTICE THAT THE DATA IS THEN    }";
9720 [153]"} CONTENTERED INTO THE CORRECT CELL AND    }";
9725 [153]"} CONTTHE TOTALS UPDATED.                  }";
9730 [153]"} CONT                                     }";
9735 [153]"} CONT                                     }";
9740 [153]"}                                      }";
9745 [153]"}             PRINTpRESS rETURN             }";
9750 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9755 [161]K$:[139]K$[179][177][199](13)[167]9755
9760 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9765 [153]"}     PRINTpERSONAL fINANCIAL sTATEMENT     }";
9770 [153]"}                                      }";
9775 [153]"} CONTwHEN YOU HAVE FINISHED, PRESS THE    }";
9780 [153]"} CONTBACK ARROW (_) TO RETURN TO THE MAIN }";
9785 [153]"} CONTMENU AND THEN SELECT liabilities.    }";
9790 [153]"} CONTtHESE ARE YOUR DEBTS SUCH AS YOUR    }";
9795 [153]"} CONTMORTGAGE, OUTSTANDING TAXES, ETC.    }";
9800 [153]"} CONTtHE FORMAT FOR ENTERING DATA IS THE  }";
9805 [153]"} CONTSAME AS FOR ASSETS.                  }";
9810 [153]"} CONT                                     }";
9815 [153]"} CONTwHEN YOU ARE FINISHED ENTERING DATA, }";
9820 [153]"} CONTRETURN TO THE MAIN MENU WHERE YOU    }";
9825 [153]"} CONTSHOULD SAVE YOUR FILE.  yOU MAY ALSO }";
9830 [153]"} CONTSELECT totals WHICH WILL GIVE YOU A  }";
9835 [153]"} CONTCAPSULE SUMMARY (aSSETS, lIABILITIES }";
9840 [153]"(null) CONTAND (null)ET (null)ORTH) OR (null)(null)RIGHT$(null)(null) OUT YOUR     (null)";
9845 [153]"} CONTFILE.                                }";
9850 [153]"} CONT                                     }";
9855 [153]"(null) CONT(null)EY COMMANDS ARE IDENTIFIED EITHER   (null)";
9860 [153]"(null) CONTON SCREEN OR VIA A LEFT$VAL(null)(null) MENU         (null)";
9865 [153]"(null) CONTTHROUGHOUT THE PROGRAM.              (null)";
9870 [153]"(null)                                      (null)";
9875 [153]"}             PRINTpRESS rETURN             }";
9880 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9885 [161]K$:[139]K$[179][177][199](13)[167]9885
9895 :
9900 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9905 [153]"(null)     PRINT(null)ERSONAL ASCINANCIAL (null)TATEMENT     (null)";
9910 [153]"(null)                                      (null)";
9912 [153]"(null)    CONT(null)OU MAY CUSTOMIZE THIS PROGRAM BY (null)";
9915 [153]"(null) CONTCHANGING THE CATEGORIES FOR EITHER   (null)";
9920 [153]"(null) CONTASSETS OR LIABILITES.  (null)O DO THIS    (null)";
9930 [153]"(null) CONTHIGHLIGHT THE CATEGORY YOU WISH TO   (null)";
9935 [153]"(null) CONTCHANGE AND THEN PRESS LEN(null)(null)(null)(null)(null)(null) LEN.     (null)";
9940 [153]"(null) CONT(null)HEN ENTER YOUR NEW CATEGORY NAME.   (null)";
9945 [153]"(null) CONT(null)HE NEW CATEGORY AS WELL AS THE OLD  (null)";
9950 [153]"(null) CONTONES WILL BE AUTOMATICALLY SAVED TO  (null)";
9955 [153]"(null) CONTDISK.                                (null)";
9956 [153]"(null) CONT                                     (null)";
9960 [153]"(null) CONT  (null)OU MAY ALWAYS CHANGE IT BACK TO   (null)";
9970 [153]"(null) CONTTHE ORIGINAL.  RIGHT$F YOU HAVE           (null)";
9972 [153]"(null) CONTFORGOTTEN THE CATEGORY, ON DISK      (null)";
9975 [153]"(null) CONTYOU WILL FIND A BACKUP COPY OF THE   (null)";
9980 [153]"(null) CONTORIGINAL CATEGORY FILE.  (null)HE         (null)";
9985 [153]"(null) CONTFILENAME IS (null)ASC(null).LENATN(null).LEN(null)(null)(null).  RIGHT$F YOU    (null)";
9989 [153]"(null) CONTWISH TO HAVE THE ORIGINAL            (null)";
9990 [153]"(null) CONTCATEGORIES BACK, YOU MUST RENAME     (null)";
9991 [153]"(null) CONTTHIS FILE (null)ASC(null).LENATN(null).                   (null)";
9994 [153]"(null)                                      (null)";
9995 [153]"(null)             PRINT(null)RESS (null)ETURN             (null)";
9996 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9997 [161]K$:[139]K$[179][177][199](13)[167]9997
9998 [142]
9999 :
10000 [159]15,8,15,"S0:PFS":[160]15:[148]"0:PFS",8:[128]
11000 :
20000 [158]49152
20002 [153]"LIST"[163]7)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
20004 [153][163]7)"(null)CONT   ATNRE YOU SURE [Y/N]   LIST(null)"
20006 [153][163]7)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
20010 [161]A$:[139]A$[178]""[167]20010
20020 [139]A$[178]"(null)"[176]A$[178]"Y"[167]20050
20030 [158]49227:[142]
20040 [147]"HELLO CONNECT",8,1
20050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15
20060 [139]ER[179][177]63 [167] [153]"LOAD":[128]
20070 [147]"HELLO CONNECT",8,1